home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / mouse1.bas < prev    next >
BASIC Source File  |  1992-05-06  |  202b  |  10 lines
  1. 10    scnclr
  2. 30    ask mouse x%, y%, b%
  3. 40    if x%=x1% and y%=y1% goto 30
  4. 45    peno 0
  5. 50    box(x1%-5,y1%-5;x1%+5,y1%+5)
  6. 55    peno 1
  7. 60    box(x%-5,y%-5;x%+5,y%+5)
  8. 70    x1%=x%: y1%=y%
  9. 80    goto 30
  10.